home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / modprolg / mod-prol.lha / Prolog / Examples / slide4.mod < prev    next >
Text File  |  1992-06-09  |  276b  |  13 lines
  1.     structure database =
  2.         struct
  3.             pred data/1.
  4.         end.
  5.  
  6.     structure uses_database =
  7.         struct
  8.             structure data = database.
  9.             add(X) :-
  10.                 structure(Tag,database),
  11.                 assert(data(X),Tag).
  12.         end.
  13.